0 REM CURSOR POSITION (SEPT 4/84)     :
1 :
2 REM  1 STATEMENT,  1 FUNCTION
3 :
4 REM KEYWORD CHARACTERS: 10
5 :
6 REM KEYWORD     ROUTINE  LINE   SER #
7 REM S/CURSOR    CSR      2574    004
8 REM F/CLOC      CSRLOC   2606    005
9 :
10 REM U/USFP (2620/006)
11 :
12 REM ================================
13 :
101 .ASC "CURSO[210]"
600 .ASC "CLO[195]"
1101 .WORD CSR-1
1600 .WORD CSRLOC-1
2574 CSR JSR $B79E
2576 CPX #$19
2578 BCS CS2
2580 TXA
2582 PHA
2583 LDY #0
2584 JSR $79
2585 BEQ CS1
2586 CMP #","
2587 BNE CS3
2588 JSR $B79B
2589 CPX #$28
2590 BCS CS2
2592 TXA
2594 TAY
2596 CS1 PLA
2598 TAX
2599 CLC
2600 JMP $FFF0
2602 CS2 JMP $B248
2603 CS3 JMP $AF08
2604 ;
2606 CSRLOC LDA $D1
2608 CLC
2610 ADC $D3
2612 TAY
2614 LDA $D2
2616 ADC #0
2618 ;
2620 USFP LDX #0
2622 STX $0D
2624 STA $62
2626 STY $63
2628 LDX #$90
2630 SEC
2632 JMP $BC49
2634 ;